From: Andrea Corallo <acorallo@gnu.org>
Date: Fri, 1 Mar 2024 08:16:38 +0000 (+0100)
Subject: * Fix compilation warning in 'cl--supertypes-for-typeof-types'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2385^2~1
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=0567f3b817ba25c8e216347cc7118fa7786039d9;p=emacs.git

* Fix compilation warning in 'cl--supertypes-for-typeof-types'

* lisp/emacs-lisp/cl-preloaded.el (cl--supertypes-for-typeof-types): Fix
warning.
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index fb06b127676..30753bcd5c5 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -99,8 +99,7 @@ the symbols returned by `type-of', and SUPERTYPES is the list of its
 supertypes from the most specific to least specific.")
 
 (defun cl--supertypes-for-typeof-types (type)
-  (cl-loop with res = ()
-           with agenda = (list type)
+  (cl-loop with agenda = (list type)
            while agenda
            for element = (car agenda)
            unless (or (eq element t) ;; no t in `cl--typeof-types'.